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EXECUTIVE  SUMMARY 


This  Validation  Summary  Report  ( VSR ) 'sunmarlzes  the  results  and  conclurlons 
of  validation  testing  performed  on  the  HP  9000  Series  200/300  Ada  Compiler 
(Ada/300),  Revision  1.4,  using  Version  1.8  of  the  Ada®  Compiler  Validation 
Capability  (ACVC).  The  Ada/300  was  tested  on  the  following  five 
configurations:  - 

.  HP  9000  Series  200  Model  220  under  HP-UX,?.  Revision  5.141 

.  HP  9000  Series  300  Models  310,  under  HP -UX,,v  Re  vision  5.1^1  1,^ 

.  HP  9000  Series  300  Model  320  under  HP-UX,'  Revision  5.141 

.  HP  9000  Series  300  Model' 330' under  HP-UX,  .Revision  5.19- 

.  HP  9000  Series  300  Model  350  under  HP-UX, /Revision  5.19 

-  • 

On-site  testing  was  performed  ,8  December  1986  through  11  December  1986  at 
Hewlett  Packard  in  Cupertino  CA,  under  the  direction  of  the  Ada  Validation 
Facility  ( AVF) ,  , according  to  Ada  Validation  Organization  (AVO)  policies  and 
procedures.  -.-The  AVF  identified  2102  of  the  2399  tests  in  ACVC  Version  1.8 
to  be  processed  during  on-site  testing  of  the  compiler.  The  19  tests 
withdrawn  at  the  time  of  validation  testing,  as  well  as  the  278  executable 
tests  that  make  use  of  floating-point  precision  exceeding  that  supported  by 
the  implementation,  were  not  processed.  After  '•he  2102  tests  were 
processed,  results  for  Class  A,  C,  D,  or  E  tests  were  examined  for  correct 
execution.  Compilation  listings  for  Class  B  tests  were  analyzed  for 
correct  diagnosis  of  syntax  and  semantic  errors.  Compilation  and  link 
results  of  Class  L  tests  were  analyzed  for  correct  detection  of  errors. 
There  were  21  of  the  processed  tests  determined  to  be  inapplicable.  The 
remaining  2081  tests  were  passed.  ^ 

The  results  of  validation  are  summarized  in  the  following  table: 


RESXT 


CHAPTER  TOTAL 

5  6  7  8  9  10  11  12  14  _ 


_  _ 2  _ 3  _ 4 _ _ _ _ _  _ 

Passed  93  206  280  246  161  97  134  262  121  32  217  232^.  2081 

Failed  OOOOOOOOOOOO  0 

Inapplicable  23  119  140  1  0  0  5  0  9  0  1  1  299 

Withdrawn  055001  124010  19 

TOTAL  116  330  425  247  161  98  140  264  134  32  219  233  2399 


The  AVF  concludes  that  these  results  demonstrate  acceptable  conformity  to 
ANSI/MIL-STD-1815A  Ada. 


®Ada  is  a  registered  trademark  of  the  United  States  Government 
(Ada  Joint  Program  Office). 
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This  Validation  Summary  Report  (VSR)  summarizes  the  results  and  conclusions 
of  validation  testing  performed  on  the  HP  9000  Series  POO/300  Ada  Cccnpller 
(Ada/300),  Revision  1.4,  using  Version  1.8  of  the  Ada'®  Compiler  Validation 
Capability  (ACVC).  The  Ada/300  was  tested  on  the  following  five 
configurations : 

.  HP  9000  Series  POO  Model  PPO  under  HP-UX,  Revision  5.141 

.  HP  9000  Series  300  Model  310  under  HP-UX,  Revision  5.141 

.  nP  9000  Series  300  Model  320  under  HP-UX,  Revision  5.141 

.  HP  9000  Series  300  Model  330  under  HP-UX,  Revision  5.19 

.  HP  9000  Series  300  Model  350  under  HP-UX,  Revision  5.19 

On-site  testing  was  performed  8  December  1986  through  11  December  1986  at 
Hewlett  Packard  in  Cupertino  CA,  under  the  direction  of  the  Ada  Validation 
Facility  (AVF),  according  to  Ada  Validation  Organization  (AVO)  policies  and 
procedures.  The  AVF  identified  2102  of  tne  2399  tests  in  ACVC  Version  1,8 
to  be  processed  during  on-site  testing  of  the  compiler.  The  19  tests 
withdrawn  at  the  time  of  validation  testing,  as  well  as  the  278  executable 
tests  that  make  use  of  floating-point  precision  exceeding  that  supported  by 
tne  implementation,  were  not  processed.  After  the  2102  tests  were 
processed,  results  for  Class  A,  C,  D,  or  E  tests  were  examined  for  correct 
execution.  Compilation  listings  for  Class  B  tests  were  analyzed  for 
correct  diagnosis  of  syntax  and  semantic  errors.  Compilation  and  link 
results  of  Class  C  tests  were  analyzed  for  correct  detection  of  errors. 
There  were  21  of  the  processed  tests  determined  to  be  Inapplicable.  The 
remaining  2081  tests  were  passed. 

The  results  of  validation  are  summarized  in  the  following  table: 


RESXT 

_ 2 

3 

4 

5 

6 

CHAPTER 

7  8  9 

10 

1 1 

12 

14 

TOTAL 

Passed 

93 

206 

280 

246 

161 

97 

134 

262 

121 

32 

217 

232 

2081 

Failed 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

23 

119 

140 

1 

0 

0 

5 

0 

9 

0 

1 

1 

299 

withdrawn 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0 

1 

0 

19 

TOTAU 

116 

330 

425 

247 

161 

98 

140 

264 

134 

32 

21  9 

233 

2399 

The  AVF  concludes  that  these  results  demonstrate  acceptable  conformity  to 
ANSI/Mr--STD-1815A  Ada, 


®Ada  is  a  registered  trademark  of  the  United  States  Government 
(Ada  Joint  Program  Office). 
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CHAPTER  1 


INTRODUCTION 


This  Validation  Summary  Report  (VSR)  describes  the  extent  to  which  a 
specific  Ada  compiler  conforms  to  the  Ada  Standard,  ANSI/MIL-STD-1 815A. 
This  report  explains  all  technical  terms  used  within  it  and  thoroughly 
reports  the  results  of  testing  this  compiler  using  the  Ada  Compiler 
Validation  Capability  (ACVC).  An  Ada  compiler  must  be  implemented 
according  to  the  Ada  Standard,  and  any  implementation-dependent  features 
must  conform  to  the  requirements  of  the  Ada  Standard.  The  Ada  Standard 
must  be  Implanented  in  its  entirety,  and  nothing  can  be  Implemented  that  is 
not  in  the  Standard. 

Even  though  all  validated  Ada  compilers  conform  to  the  Ada  Standard,  it 
must  be  understood  that  some  differences  do  exist  between  Implementations. 
The  Ada  Standard  permits  some  implementation  dependencies— for  example,  the 
maximum  length  of  Identifiers  or  the  maximum  values  of  Integer  types. 
Other  differences  between  compilers  result  from  characteristics  of 
particular  operating  systems,  hardware,  or  implementation  strategies.  All 
of  the  dependencies  observed  during  the  process  of  testing  this  compiler 
are  given  in  this  report. 

The  Information  in  this  report  is  derived  from  the  test  results  produced 
during  validation  testing.  The  validation  process  Includes  submitting  a 
suite  of  standardized  tests,  the  ACVC,  as  Inputs  to  an  Ada  compiler  and 
evaluating  the  results.  The  purpose  of  validating  is  to  ensure  corJ'ormity 
of  the  compiler  to  the  Ada  Standard  by  testing  that  the  compiler  propjerly 
implements  legal  language  constructs  and  that  it  identifies  and  rejects 
illegal  language  constructs.  The  testing  also  identifies  behavior  that  is 
implementation  dependent  but  permitted  by  the  Ada  Standard.  Six  classes  of 
tests  are  used.  These  tests  are  designed  to  perform  checks  at  compile 
time,  at  link  time,  and  during  execution. 


INTROD’JCTION 


1.1  PURROS?:  OF  THIS  VALIDATION  S’JMMARY  REPORT 

Tnls  VSR  documents  the  "esults  of  the  validation  testing  perf orraed  on  an 
Ada  compiler.  Testing  was  carried  out  for  the  following  purposes: 

.  To  attempt  to  identify  any  language  constructs  supported  by  the 
compiler  that  do  not  conform  to  the  Ada  Standard 

.  To  attempt  to  Identify  any  unsupported  language  constructs 
required  by  the  Ada  Standard 

.  To  determine  that  the  implementation-dependent  behavior  is  allowed 
by  the  Ada  Standard 


Testing  of  this  compiler  was  conducted  by  SofTech,  Inc.,  under  the 
direction  of  the  AVF  according  to  policies  and  procedures  established  by 
the- Ada  Validation  Organlcatlon  (AVO).  On-site  testing  was  conducted  from 
8  December  1  986  through  11  December  1986  at  Hewlett  Packard  in  Cupertino 
CA. 


UR  USE  OF  THIS  VALIDATION  SUMiiARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the  AVO  may 
make  full  and  free  public  disclosure  of  this  report.  In  the  United  States, 
this  is  provided  in  accordance  with  the  "Freedom  of  Information  Act"  (5 
U.S.C.  #552).  The  results  of  this  validation  apply  only  to  the  computers, 
operating  systems,  and  ccmpiler  versions  Identified  in  this  report. 

The  orgarJl zations  represented  on  the  signature  page  of  this  report  do  not 
represent  or  warrant  that  all  statements  set  forth  in  this  report  are 
accurate  and  complete,  or  that  the  subject  compiler  has  no  nonconformities 
to  the  Ada  Standard  other  than  those  presented.  Copies  of  this  report  are 
available  to  the  public  from: 

Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSDRE 

The  Pentagon,  Rm  3D-139  (Fern  Street) 

Washington  DC  20301-3081 


or  from: 


Ada  Validation  Facility 
A3D/SC0L 

Wrlght-Patterson  AFB  OH  45433-6503 
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Questions  regarding  this  report  or  the  validation  test  res-ulcs  should  be 
directed  to  the  AVF  listed  aoove  or  to: 

Ada  Validation  Organization 
Institute  for  Defense  Analyses 
1301  North  Beauregard  Street 
Alexandria  VA  3?3n 


1.3  REFERENCES 


1.  Reference  Manual  for  the  Ada  Programaiing  Language, 
ANSI/MIL-STD-181  SA,  FEB  1  983. 

Ada  Validation  Organization:  Procedures  and  Guidelines,  Ada  Joint 
Program  Office,  1  JAN  1987. 

3.  Ada  Ccrnpiler  Validation  Capability  Im  piemen  ter  s'  Guide,  SofTech, 
Inc.,  DEC  1984. 


1.4  DEFINITION  OF  TERMS 


ACVC  The  Ada  Ccmpiler  Validation  Capability.  A  set  of  programs 

that  evaluates  the  conformity  of  a  compiler  to  the  Ada 
language  specification,  ANSI/MIL-STD-1  815A. 

Ada  Standard  ANS  I/MIL -STD- 181  5A,  February  1983. 

Applicant  The  agency  requesting  validation. 

AVF  The  Ada  Validation  Facility.  In  the  context  of  this  report, 

the  AVF  is  responsible  for  conducting  compiler  validations 
according  to  established  policies  and  procedures. 

AVO  The  Ada  Validation  Organization.  In  the  context  of  this 

report,  the  AVO  is  responsiole  for  setting  procedures  for 
compiler  validations, 

Ccmpiler  A  processor  for  the  Ada  language.  In  the  context  of  this 

report,  a  compiler  is  any  language  processor,  including 
cross-compilers,  translators,  and  Interpreters. 

Failed  test  A  test  for  which  the  compiler  generates  a  result  that 
demonstrates  nonconformity  to  the  Ada  Standard. 

Host  The  computer  on  which  the  ccmpiler  resides. 
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:ntrodj:t:dn 


rnappl'l casle  A  test  that  uses  feat'uras  of  the  language  tnat  a  ao;Lpller  Is 
test  not  required  to  support  or  aiay  legitimately  support  in  a  way 

other  than  the  one  expected  oy  the  test. 


Passed  test  A  test  for  which  a  compiler  generates  the  expected  result. 


Target 


The  computer  for  which  a  compiler  generates  code. 


Test 


Withdrawn 

test 


A  program  that  checks  a  ccmpller's  conformity  regarding  a 
particular  feature  or  features  to  the  Ada  Standard.  In  the 
context  of  this  report,  the  term  is  used  to  designate  a 
single  test,  which  may  comprise  one  or  more  files. 

A  test  found  to  be  incorrect  and  not  used  to  check  conformity 
to  the  Ada  language  specification.  A  test  may  be  incorrect 
because  it  has  an  invalid  test  objective,  fails  to  meet  its 
test  objective,  or  contains  Illegal  or  erroneous  use  of  the 
language . 


1.5  ACVC  TEST  CLASSES 

Conformity  to  the  Ada  Standard  is  measured  using  the  ACVC.  The  ACVC 
contains  both  legal  and  Illegal  Ada  programs  structured  into  six  test 
classes:  A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name  identifies 
the  class  to  which  It  belongs.  Class  A,  C,  D,  and  E  tests  are  executable, 
and  special  program  units  are  used  to  report  their  results  during 
execution.  Class  B  tests  are  expected  to  produce  compilation  errors. 
Class  L  tests  are  expected  to  produce  link  errors. 

Class  A  tests  check  that  legal  Ada  programs  can  be  successfully  compiled 
and  executed.  However,  no  checks  are  performed  during  execution  to  see  if 
the  test  objective  has  been  met.  For  example,  a  Class  A  test  checks  that 
reserved  words  of  another  language  (other  than  those  already  reserved  in 
the  Ada  language)  are  not  treated  as  reserved  words  by  an  Ada  compiler.  A 
Class  A  test  is  passed  if  no  errors  are  detected  at  compile  time  and  tne 
program  executes  to  produce  a  PASSED  message. 

Class  B  tests  check  that  a  compiler  detects  Illegal  language  usage.  Class 
3  tests  are  not  executable.  Each  test  in  this  class  is  compiled  and  the 
resulting  compilation  listing  is  examined  to  verify  that  every  syntax  or 
ssnantlc  error  in  the  test  is  detected.  A  Class  B  test  is  passed  if  every 
Illegal  construct  that  it  contains  is  detected  by  the  compiler. 

Class  C  tests  check  that  legal  Ada  programs  can  be  correctly  compiled  and 
executed.  Each  Class  C  test  is  self-checking  and  produces  a  PASSED, 
FAILED,  or  NOT  APPLICABLE  message  indicating  the  result  when  it  is 
executed . 

Class  D  tests  check  the  compilation  and  execution  capacities  of  a  compiler. 
Since  there  are  no  capacity  requirements  placed  on  a  compiler  oy  the  Ada 
Standard  for  some  parameters- -for  example,  the  number  of  Identifiers 
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i ay  ret  ^se 
rheref  ore  , 


permitted  in  a  ccmpiiation  or  r.ne  ninoer  of  units  in  a  -Library — a  compiler 
may  ref^^se  to  oompile  a  dlass  j  test  and  still  oe  a  conforming  compiler. 
Therefore,  if  a  Class  D  test  fails  to  canpile  because  the  capacity  of  tne 
compiler  is  exceeued,  tne  test  is  classified  as  Inapplicable.  Tf  a  Class  D 
test  cctnpiles  s ucc es sf  ully  ,  it  is  self-cnecklng  and  produces  a  PA33ED  or 
FAILED  message  during  execution. 


cctnpiles  s  ucc  es  sf  ully  ,  it  is  self-cnecklng  and  produces  a  PA33ED  or 


Each  Class  S  test  is  self-cnecKing  and  produces  a  A'CT  APPLICABLE,  PASSED, 
or  FAILED  message  when  it  is  cotpiled  and  executed.  However,  the  Ada 
Standard  permits  an  implementation  to  reject  programs  containing  some 
features  addressed  by  Class  E  tests  during  compilation.  Therefore,  a  Class 
E  test  is  passed  by  a  compiler  if  it  is  compiled  successfully  and  executes 
to  produce  a  PASSED  message,  or  if  it  is  rejected  by  the  compiler  for  an 
al 1 owa  bl e  re  as  on  . 


Class  L  tests  check  that  Incomplete  or  illegal  Ada  programs  involving 
multiple,  separately  compiled  units  are  detected  and  not  allowed  to 
execute.  Class  L  tests  are  compiled  separately  and  execution  is  attempted. 
A  Class  L  test  passes  if  it  is  rejected  at  link  time — that  is,  an  attempt 
to  execute  the  main  program  must  generate  an  error  message  oeforc  any 
declarations  in  the  main  program  or  any  units  referenced  by  the  main 
program  are  elaborated. 


Two  library  units,  the  package  REPORT  and  the  procedure  CHECK_FILE,  support 
the  self-checking  featu.”e3  of  the  executable  tests.  The  package  REPORT 
provides  the  mechanism  by  which  executable  tests  report  PASSED,  FAILED,  or 
.MOT  APPLICABLE  results.  It  also  provides  a  set  of  identity  f’unctions  used 
to  defeat  some  compiler  optimizations  allowed  by  the  Ada  Standard  that 
would  circumvent  a  test  objective.  The  procedure  CHECK_FILE  is  used  to 
check  the  contents  of  text  files  written  by  some  of  the  Class  C  tests  for 
chapter  14  of  the  Ada  Standard.  The  operation  of  these  units  is  checked  by 
a  set  of  executable  tests.  These  tests  produce  messages  that  are  examined 
to  verify  that  the  units  are  operating  correctly.  If  these  units  are  not 
operating  correctly,  then  tne  validation  is  not  attanpted. 


The  text  of  the  tests  in  the  ACVC  follow  conventions  that  are  intended  to 
ensure  that  the  tests  are  reasonably  portable  without  modification.  For 
example,  the  tests  make  use  of  only  the  basic  set  of  55  characters,  contain 
lines  with  a  maxlmun  length  of  7?.  characters,  use  small  numeric  values,  and 
place  features  that  may  not  be  supported  by  all  implementations  in  separate 
tests.  However,  some  tests  contain  values  that  require  the  test  to  be 
customized  according  to  Implementation-specific  values — for  example,  an 
Illegal  file  name.  A  list  of  tne  values  used  for  this  validation  is 
provided  in  Appendix  C. 


A  compiler  must  correctly  process  each  of  the  tests  in  the  suite  and 
demonstrate  conformity  to  the  Ada  Standard  by  either  meeting  the  pass 
criteria  given  for  the  test  or  by  showing  that  the  test  is  inapplicable  to 
the  implementation.  Any  test  that  was  determined  to  contain  an  illegal 
language  construct  or  an  erroneous  language  construct  is  withdrawn  from  the 
ACVC  and,  therefore,  is  not  used  in  testing  a  compiler.  The  tests 
wlthdra-wTi  at  the  time  of  validation  are  given  in  Appendix  D. 


CHAPTER  P 


CONFIGURATION  INFORMATION 


2.1  CONFIGURATION  TESTED 

The  candidate  compilation  system  for  this  validation  was  tested  under  the 
following  configurations: 


Compiler:  HP  9000  Series  200  /3  0  0  Ada  Compiler,  Revision  1.4 
ACVC  Version:  1.8 

Certificate  Expiration  Date:  10  March  1988 
Host  and  Target  Computers: 


Machine  Operating  System  Memory  51  ze 


HP 

9000 

Series 

200 

Model 

220 

HP-UX, 

Revision 

5.14  1 

7.  5  megabytes 

K? 

9000 

Series 

300 

Model 

310 

HP-UX, 

Revision 

5.141 

7. 0  megabytes 

HP 

9000 

Series 

300 

Model 

3?.0 

HP-UX, 

Revision 

5.141 

7.  0  megabytes 

HP 

9000 

Series 

300 

Model 

330 

HP-UX, 

Revision 

5.19 

4. 0  me^bytes 

HP 

9000 

Series 

300  Model 

350 

HP-UX, 

Revision 

5.19 

4. 0  megabytes 

2.2  IMPLEMENTATION  CHARACTERISTICS 

One  of  the  purposes  of  validating  compilers  Is  to  determine  the  behavior  of 
a  compiler  in  those  areas  of  the  Ada  Standard  that  penult  Implementations 
to  differ.  Class  D  and  E  tests  specifically  check  for  such  Implementation 
differences.  However,  tests  in  other  classes  also  character^,  ze  an 
implementation.  This  compiler  is  characterized  by  the  following 
interpretations  of  the  Ada  Standard: 


The  compiler  correctly  processes  tests  cor.iaining  loop  stat“mer.‘'s 
nested  to  c5  levels,  block  statements  nested  to  65  levels,  ana 
recursive  procedures  separately  compiled  as  subunits  nested  to  '? 
levels.  It  correctly  processes  a  compilation  containing  7^3 
variables  in  the  same  declarative  part.  (See  tests  D55A03A..H  ( d 
tests),  D56001B,  D64005E..G  (3  tests),  and  D?9Z0?X.) 


Universal  integer  calculations. 

An  implementation  is  allowed  to  reject  universal  integer 
calculations  having  values  that  exceed  SYSTEM  .i'iAX_INT.  Tnis 
implementation  does  not  reject  such  calculations  and  processes 
them  correctly.  (See  tests  D4A002A,  D4A002B,  D4A004A,  and 

D4A004B. ) 


Predefined  types. 

This  Implementation  supports  the  additional  predefined  types 
SHORT_INTEGER  and  LONG_INTEGER  in  the  package  STANDARD.  (See 
tests  B86001C  and  B8600':d.) 


Based  literals. 

An  implementation  is  allowed  to  reject  a  based  literal  with  a 
value  exceeding  SYSTEM. MAX_INT  during  compilation,  or  it  may  raise 
NUMERIC_ERROR  or  CONSTRAINT_ERROR  during  execution.  This 
implementation  raises  NUMERIC_ERROR  during  execution.  (See  test 
£2410^.) 


Array  types. 

An  implementation  is  allowed  to  raise  NUMERIC_ERROR  or 
C0N3TRAINT_ERR0R  for  an  array  having  a  'LENGTH  that  exceeds 
STANDARD. INTEGER 'LAST  and/or  SYSTEM. MAX_INT. 

A  packed  BOOLEAN  array  having  a  'LENGTH  exceeding  INTEGER 'LAST 
does  not  raise  an  exception.  (See  test  C52'05X.) 

A  packed  two-dimensional  BOOLEAN  array  with  more  than  INTEGER' LAST 
components  raises  CONSTRATNT_ERROR  when  the  length  of  a  dimension 
is  calculated  and  exceeds  INTEGER'LAST.  (See  test  C52:04Y.) 

A  null  array  with  one  dimension  of  length  greater  than 
INTEGER'LAST  may  raise  NUMERIC_ERROR  or  C0NSTRAINT_ERR0R  eitner 
when  declared  or  assigned.  Alternatively,  an  implementation  cay 
accept  the  declaration.  However,  lengths  must  match  in  array 
slice  assignments.  This  implementation  accepts  tne  declaration. 


(See  test  E52:03Y.) 


In  assigr.ing  ono-dinienslonal  array  types,  ‘■he  expression  appears 
to  De  evaluated  in  its  entirety  before  CONSTHAI.N'T  ERROR  is  raised 
■-’hen  checking  whether  the  expression's  subtype  is  compatible  with 
the  target's  subtype.  In  assigning  two-dimensional  array  types, 
the  expression  do^s  not  appear  to  be  evaluated  in  its  entirety 
before  CONSTRATNT_ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's  subtype. 
(See  test  Cb20".3A.) 


.  Discriminated  types. 

During  compilation,  an  implementation  is  allowed  to  either  accept 
or  reject  an  incomplete  type  with  discriminants  that  is  used  in  an 
access  type  definition  with  a  compatible  discriminant  constraint. 
This  implementation  accepts  such  subtype  indications.  (See  test 
E38':04A.  ) 

In  assigning  record  types  with  discriminants,  the  expression 
appears  to  be  evaluated  in  its  entirety  before  CONSTRAINT_ERROR  is 
raised  when  checking  whether  the  expression's  subtype  is 
compatible  with  the  target's  subtype.  (See  test  C520'3A.) 


.  Aggregates. 

In  the  evaluation  of  a  multi-dimensional  aggregate,  all  choices 
appear  to  be  evaluated  before  checking  against  the  index  type. 
(See  tests  C43207A  and  C43207B.) 

In  the  evaluation  of  an  aggregate  containing  subaggregates,  all 
choices  are  not  evaluated  before  being  checked  for  identical 
bounds.  (See  test  E432‘2B.) 

All  choices  are  evaluated  before  CONSTRAINT_ERROR  is  raised  if  a 
bound  in  a  nonnull  range  of  a  nonnull  aggregate  does  not  belong  to 
an  index  subtype.  (See  test  E43;?TiB.) 


.  Functions. 

An  implementation  may  allow  the  declaration  of  a  parameterless 
function  and  an  enumeration  literal  having  the  same  profile  in  the 
same  immediate  scope,  or  it  nay  reject  the  function  declaration. 
If  it  accepts  the  function  declaration,  the  use  of  the  enumeration 
literal's  identifier  denotes  the  function.  This  implementation 
rejects  the  declaration.  (See  test  E6600'D.) 


CONFIGURATION  INFORMATION 


Representation  clauses. 

The  Ada  Standard  does  not  require  an  icplenien^  ati  cn  to  support 
representation  clauses.  If  a  representation  clause  is  not 
supported,  then  the  implementation  must  reject  it.  While  the 
operation  of  representation  clauses  is  not  cnecked  by  Version  1.8 
of  the  ACVC,  they  are  used  in  testing  other  language  features. 
This  implementation  rejects  'SIZE  and  'STORAGE_SIZE  for  tasks, 
'STORAGE  SIZE  for  collections,  and  'SMALL  clauses.  Enumeration 
representation  clauses,  including  those  that  specify  noncontiguous 
values,  appear  not  to  be  supported.  (See  tests  C55B'6A,  C67B68A, 
C87B62B,  C87B62C,  and  BC1002A.) 


Pragmas . 

The  pragma  INI.TNE  is  not  supported  for  procedures  or  functions. 
(See  tests  CA3004E  and  CA3004F.) 


Input/output . 

The  package  SEQUENTIAL_TO  can  be  instantiated  with  unconstrained 
array  types  and  record  types  with  discriminants.  The  package 
DIRECT_IO  can  be  instantiated  with  unconstrained  array  types  and 
record  types  with  discriminants  without  defaults.  However,  any 
call  to  OPEN  or  CREATE  of  such  instances  of  DIRECT_I0  with  these 
types  raises  an  exception.  (See  tests  AE210'iC,  AE2101H,  CE220'D, 
CE22O1E,  and  CE240‘D.) 

An  existing  text  file  can  be  opened  in  0UT_FILE  mode  and  can  be 
created  in  both  OUT  FTI.E  and  IN  FILE  modes.  (See  test  EE3102C.) 


51 

I 


5? 


V 

V 

iS 


More  than  one  internal  file  can  be  associated  with  each  external 
file  for  text  I/O  for  both  reacing  and  writing.  (See  tests 
CE3'1'A..E  (5  tests).) 


More  than  one  internal  file  can  be  associated  with  each  external 
file  for  sequential  I/O  for  both  reading  and  writing.  (See  tests 
CE2i07A..F  (6  tests).) 


More  than  one  Internal  file  can  be  associated  with  each  external 
file  for  direct  I/O  for  both  reading  and  writing.  (See  tests 
CE2107A..F  (6  tests).) 


An  external  file  associated  with  more  than  one  Internal  file  can 
be  deleted.  (See  test  CE2mOB.) 


Temporary  sequential  and  direct  files  are  given  a  name.  Temporary 
files  given  names  are  deleted  when  they  are  closed.  (See  tests 
CEPIOSA  and  CE2'08C.) 


JNFIGu'RATTON 


Generics. 


Body  and  subunits  of  a  generic  unit  niust  be  in  tne  sai^e 
compilation  as  the  specification  if  instantiations  precede  tnem. 
(See  tests  CAP-009C,  CA2009F,  and  BC3;505D.) 


CHAPTER  3 


31 


f 


I 


TEST  INFORMATION 


3."  TEST  RESULTS 

Version  1.8  of  the  ACVC  contains  2399  tests.  When  validation  testing  of 
the  HP  9000  Series  200/300  Ada  Compiler  (Ada/300),  Revision  1.4,  was 
performed,  19  tests  had  been  withdrawn.  The  remaining  2380  tests  were 
potentially  applicable  to  this  validation.  The  AVF  determined  that  299 
testa  were  Inapplicable  to  this  implementation,  and  that  the  208l 
applicable  tests  were  passed  by  the  Implementation. 

The  AVF  concludes  that  the  testing  results  demons'rate  acceptable 
conformity  to  the  Ada  Standard. 


C 


s 
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3.2  SUMMARY  OF  TEST  RESUI.TS  BY  CLASS 


RESULT 

A 

B 

TEST 

C 

CLASS 

D 

E 

J. 

TOTAL 

Passed 

69 

864 

1076 

17 

11 

44 

2081 

Failed 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

0 

3 

292 

0 

2 

2 

299 

Withdrawn 

0 

7 

12 

0 

0 

0 

19 

TOTAL 

69 

874 

1360 

17 

13 

46 

2399 
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3.3  SUMMARY  C?  TEST  RESULTS  BY  CHAPTER 


RESULT 

2 

3 

14 

5 

6 

CHAPTER 

7  8  9 

”0 

-  - 

'2 

*4 

TOTAL 

Passed 

93 

206 

280 

246 

161 

97 

134 

262 

121 

32 

217 

232 

2081 

Failed 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

23 

119 

140 

1 

0 

0 

5 

0 

9 

0 

1 

1 

299 

Withdrawn 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0 

1 

0 

19 

TOTAL 

16 

330 

425 

247 

161 

98 

140 

264 

134 

32 

219 

233 

2399 

3.4  WITHDRAWN  TESTS 

The  following  19  tests  were  withdrawn  from  ACVC  Version  *.8  at  the  time  of 
this  validation: 


C3Pi‘:4A 

B33203C 

C340'8A 

C35904A 

B3740:A 


C4',404A 

B45il6A 

C48008A 

B49006A 

B4A0‘i0C 


8741018 

C87B50A 

C92005A 

C940ACA 

CA3005A..D 


BC3204C 


(4  tests) 


See  Appendix  D  for  the 


reason  that  each  of  these  tests  was  withdrawn. 


3.5  INAPPLICABLE  TESTS 

Som*-  tests  do  not  apply  to  all  compilers  because  they  make  use  of  features 
that  a  compiler  is  not  required  by  the  Ada  Standard  to  support.  Others  may 
depend  on  the  result  of  another  test  that  is  either  inapplicable  or 
withdrawn.  For  this  validation  attempt,  299  tests  were  inapplicable  for 
the  reasons  indicated: 


.  C34001F  and  C35702A  use  SHORT_FLOAT  which  is  not  supported  by  this 

compiler. 

.  C34001G  and  C35702B  use  L0NG_FL0AT  which  is  not  supported  by  this 

compiler. 


C55B16A  makes  use  of  an  enumeration  representation  clause 
containing  noncontiguous  values  which  is  not  supported  by  this 
compiler. 


3-2 


.  V.  V, 


.  V*.  ""i* •' 


y-V.V..  M*/  V.  m‘ I’A  kvkuir-  n 


.  BSdOO'D  requires  a  predefined  numeric  “^ype  otner  tnan  those 
defined  by  the  Ada  language  in  package  STANDARD.  There  is  no  such 
type  for  this  implementation. 

.  iSoOO'F  redefines  package  SYSTEM,  but  TEXT_rD  is  mace  obsolete  oy 
this  new  definition  in  this  implementation  and  the  test  cannot  oe 
executed  since  the  package  REPORT  is  dependent  on  the  pacxage 
TEXT_IO. 

.  C8736PA..C  3  tests)  use  length  clauses  whicn  ar“  not  supported  oy 

this  compiler.  The  length  clause  is  rejected  during  compilation. 

.  BAPOO'E  requires  that  duplicate  names  of  suounits  with  a  common 
ancestor  be  detected  at  compile  time.  This  implementation  detects 
the  error  at  link  time,  and  the  AVO  ruled  that  this  behavior  is 
acceptable . 

.  CAP009C,  CA<?009F,  and  BC3205D  compile  the  body  and  subunits  of  a 
generic  unit  in  separate  compilation  files.  For  this 
implementation,  the  body  and  subunits  of  a  generic  unit  must  be  in 
the  same  compilation  as  the  specification  if  instantiations 
precede  them. 

.  CA3004E,  EA3004C,  and  LA3004A  use  INLINE  pragma  for  procedures 

which  is  not  supported  by  this  compiler. 

.  CA3004F,  EA3C04D,  and  LA3004B  use  INLINE  pragma  for  functions 

which  is  not  supported  by  this  compiler. 

.  CE240'D  uses  an  instantiation  of  package  DIRECT_I0  with 

unconstrained  array  types  and  record  types  with  discriminants 
without  defaults.  In  this  implementation,  the  exception  USE_ERROR 
is  raised  upon  a  call  to  OPEN  or  CREATE  of  such  Instances. 

.  The  following  278  tests  require  a  floating-point  accuracy  that 
exceeds  the  maximum  of  6  supported  by  the  implementation: 

C24m3C..Y  (23  tests)  C35708C..Y  (23  tests)  C4542'.C..Y  (23  tests) 

C35705C..Y  (23  tests)  C35802C..Y  (23  tests)  C45424C..Y  (23  tests) 

C35706C..Y  (23  tests)  C45241C..Y  (23  tests)  C45521C..Z  (24  tests) 

C35707C..Y  (23  tests)  C45321C..Y  (23  tests)  C45621C..Z  (24  tests) 


3.6  SPLIT  TESTS 

If  one  or  more  errors  do  not  appear  to  have  been  detected  in  a  Class  B  test 
because  of  compiler  error  recovery,  then  the  test  is  split  into  a  set  of 
smaller  tests  that  contain  the  undetected  errors.  These  splits  are  then 
compiled  and  examined.  The  splitting  process  continues  until  all  errors 
are  detected  by  the  compiler  or  until  there  is  exactly  one  error  per  split. 
Any  Class  A,  Class  C,  or  Class  E  test  that  cannot  be  compiled  and  executed 


TEST  :*«iFORMATTO.M 


because  of  its  size  Is  split  Into  a  set  of  sxaller  subtests  that 
processed . 


car.  be 


Splits  were  required  for 


IS  Class  3  tests. 


B32202A 
33220 2B 
B32202C 
B33001A 
B37004A 


Bi<3201D 
361012A 
862001 B 
BTUUOIF 
B74401R 


B91004A 
39  SO69  A 
B950693 
BAnOlB 
BC320SC 


3.7  ADDITIONAL  TESTING  INFORMATION 
3.7.1  Prevalidation 

Prior  to  validation,  a  set  of  test  results  for  ACVC  Version  1.8  produced  by 
the  Ada/300  was  submitted  to  the  AVF  by  the  applicant  for  review.  Analysis 
of  these  results  demonstrated  that  the  compiler  successfully  passed  all 
applicable  tests,  and  the  compiler  exhibited  the  expected  behavior  on  all 
inapplicable  tests. 


3.7.2  Test  Method 

Testing  of  the  Ada/300  using  ACVC  Version  1.8  was  conducted  on-site  by  a 
validation  team  from  the  AVF.  The  configuration  consisted  of  an  HP  9000 
Series  300  Model  320  operating  under  HP-UX,  Version  5.141.  Two  identical 
computers  were  used  in  testing  the  ccmpiler.  The  following  four 
configurations  were  also  tested  using  a  subset  of  the  ACVC: 

.  HP  9000  Series  200  Model  220  under  HP-UX,  Revision  5.141 

.  HP  9000  Series  300  Model  310  under  HP-UX,  Revision  5.141 

.  HP  9000  Series  300  Model  330  under  HP-UX,  Revision  5.19 

.  HP  9000  Series  300  Model  350  under  HP-UX,  Revision  5.19 


A  magnetic  tape  containing  all  tests  except  for  withdrawn  tests  and  tests 
requiring  unsupported  floating-point  precisions  was  taken  on-site  by  the 
validation  team  for  processing.  Tests  that  make  use  of 
implementation- specific  values  were  customized  before  being  written  to  the 
magnetic  tape.  Tests  requiring  splits  during  the  prevalidation  testing 
were  included  in  their  split  form  on  the  magnetic  tape. 


The  contents  of  the  magnetic  tape  were  loaded  onto  an  HP  9000  Series  200. 
The  tests  were  accessed  from  the  Series  200  Model  220  computer  via  the 
local  area  network.  The  full  set  of  tests  was  compiled,  linked,  and 
executed  as  appropriate  on  the  two  Series  300  Model  320  computers.  Results 
were  transferred  over  the  network  to  either  a  Series  300  Model  350  or  a 
Series  500  Model  530  and  printed. 


A  subset  of  the  ACVC,  Version  1.8,  was  run  on  a  Series  800  Model  880  and  a 
Series  300  Model  310,  Model  330,  and  Model  380.  Tne  subset  of  sixty  tests 
consisted  of  five  tests  selected  at  random  from  all  classes  of  tests  'witnin 
each  cnapter.  The  tests  were  compiled,  linked,  and  executed  as  appropriate 
on  each  host/target  ccmputer.  The  test  results  were  t.ie  same  as  those 
reviewed  for  the  Series  300  Model  380  on  which  full  testing  was  performed. 


The  compiler  was  tested  using  command  scripts  provided  by  Hewlett  Packard 
arxl  reviewed  by  the  validation  team.  The  following  options  were  in  effect 
for  testing; 


Option 


Effect 


-L 

-P  84 
-e  999 
-c 

-w  c ,  -3  TUB  S 


Generate  a  listing 

List  page  length  (24  lines) 

Terminate  compilation  if  the  error  count  exceeds  999 
Suppress  automatic  linking  of  program 
Places  the  code  and  symbol  table  information  for 
instantiated  units  Into  the  Ada  library  as  distinct 
and  separate  units  in  the  library  (one  unit  in  the 
library  per  instantiated  generic).  This  option  is 
used  to  decrease  the  possibility  of  exceeding  the 
symbol  table  capacity  when  instantiating  generic 
units . 


Test  output,  compilation  listings,  job  logs,  and  the  compiler  and 
environment  were  captured  on  magnetic  tape  and  archived  at  the  AVF. 
listings  examined  on-site  by  the  validation  team  were  also  archived. 


3.7.3  Test  Site 

The  validation  team  arrived  at  Hewlett  Packard  in  Cupertino  CA  on  8 
December  1  986,  and  departed  after  testing  was  completed  on  11  Decemoer 
1  986. 


Source  files  were  read  across  a  local  area  network  which  was  not  dedicated 
to  crly  tested  systems,  so  some  delay  may  have  been  introduced  by  local 
area  network  traffic. 
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COMPI.IANCE  STATEI^NT 


Hewlett  Packard  has  submitted  the  following  compliance 
statement  concerning  the  HP  9000  Series  POO/300  Ada 
Compiler  (Ada/300),  Revision  'l.d. 


COMPLIANCE  STATEMENT 


Conpliance  Statement 


Configurations: 


Compiler:  HP  9000  Series  200/300  Ada'  Comp i ler ,  Revision  1.4 
Test  Suite:  Ada  Compiler  Validation  Capability,  Version  1.8 


Host  and  Target  Computers: 
Machine : 

Operating  System: 
Machine : 

Operating  System: 
Machine : 

Operating  System: 
Machine : 

Operating  System: 
Machine : 

Operating  System: 


HP  9000  Series  200  Model  220 
HP-UX,  Revision  5.141 

HP  9000  Series  300  Model  310 
HP-UX,  Revision  5.141 

HP  9000  Series  300  Model  320 
HP-UX,  Revision  5.141 

HP  9000  Series  300  Model  330 
HP-UX,  Revision  5.19 

HP  9000  Series  300  Model  350 
HP-UX,  Revision  5.19 


Hewlett  Packard  has  made  no  deliberate  extensions  to  the  Ada  language 
standard . 

Hewlett  Packard  agrees  to  the  public  disclosure  of  this  report. 

Hewlett  Packard  agrees  to  comply  with  the  Ada  trademark  policy,  as  defined 
by  the  Ada  Joint  Program  Office. 


Date :  /zA/k. 


APPENDIX  B 


APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to  implementation- 
dependent  pragmas,  to  certain  machine-dependent  conventions  as  mentioned  in 
chapter  >3  of  MIL-STD- 1 81 5A,  and  to  certain  allowed  restrictions  on 
representation  classes.  The  implementation-dependent  characteristics  of 
the  HP  9000  Series  200/300  Ada  Compiler  (Ada/300),  Revision  1.4,  are 
described  in  the  following  sections  which  discuss  topics  in  Appendix  F  of 
the  Ada  Language  Reference  Manual  (ANSI/MIL-STD-181 5A) .  The  specification 
of  the  package  STANDARD  is  also  included  in  this  appendix. 


Appendix  F 
Implementation-Dependent 

Characteristics  for  the  HP  Ada 

Compilation  System 

F.1  Form  and  Effect  of 
Implementation-Dependent  Pragmas 

Pragmas  INTERFACE  and  INTERKACE_NAME 

Ada  programs  can  interface  with  subprograms  written  in  C  and  Assembler.  This  interface  is  possible 
through  use  of  the  predefined  pragmas  INTERFACE  ind  INTERFACE_NAME. 

The  pragma  INTERFACE  informs  the  compiler  that  a  non-.^da  object  is  supplied  when  the  Ada  program  is 
linked.  The  pragma  specifies  the  name  of  the  interfaced  subprogram,  the  other  programming  language 
being  interfaced  to,  and  implicitly,  the  parameter  calling  conventions  corresponding  to  that  language. 

The  implementation-defined  pragma  INTERFACE _ NAME  associates  an  alternative  name  with  a  non-.A.da 

subprogram  that  has  been  specified  to  the  Ada  program  via  the  pragma  INTERFACE. 

The  two  pragmas  take  the  fcrm; 

pragM  INTERFACE  ( Ianguag*_nam« ,  subprogram  nama); 
pragM  INTERFACE_  _NAME  (subprogram  name,  string); 

where: 

I  anguag*_narrm 
subprogram  norm 

string 
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IS  either  C  or  ASSEMBLER. 

is  the  name  used  within  the  .A.da  program  when  referring  to  the 
interfaced  subprogram. 

IS  the  external  name  of  the  subprogram.  This  name  is  literal  and  case  is 
significant. 


The  prai.Tia  is  not  rec;oired-  If  omitted,  the  r.i.me  ;f  the  '  h"-.:  t  t 

pragma  IST£‘>£AC£  is  used,  with  all  alphabetic  characters  shitted  to  lower  ^a.-e  P-iimi 
INT£RFAC£  SA^£  must  be  used  when  the  interfaced  subprogram  name  contains  characters  r..;t  acceptiole 
within  \ii  n.'.~es.  or  when  the  interfaced  program  nam.e  c-,  niiins  in  ipp^r.ase  letter 

If  the  intert'i>.ed  subprogram  language  is  C,  a  modification  to  the  name  of  the  interface  'ubprcgram  is 
made  by  the  compiler.  This  modification  precedes  the  truncated  nam.e  with  an  underscore  cnara^ter 
Th.s  mcdiiic.ation  conforms  to  the  naming  conventions  used  by  the  linke-  for  subprograms  written  :n  C 

Pragma  IHT£RFAC£_HAM£  is  allowed  at  the  same  places  of  an  .\da  program  as  the  pragm,.i  1^T£RFAC£ 
(see  Reference  Manual  for  the  Ada  Programming  Language,  Appendix  B).  The  pragma  IHT £RF AC£ _SA‘^£ 
must  follow  the  corresponding  IHT£RF AC£  pragma  declaration. 

EXAMPLE 

package  SAMPLE  LIS  ia 

function  SAMPLE  DEVICE  (X: INTEGER)  return  INTEGER; 
function  PRCXESS_SAMPLE  (XiINTEGER)  return  INTEGER; 
private 

pragma  INTERFACE  (ASSEMBLER,  SAMPLE  DEVICE); 
pragma  INTERFACE  (C,  PROCESS  SAMPLEJ; 
pragma  INTERFACE  NAME  (SAMPLE  DEVICE,  "DEVIO"); 
pragma  INTERFACE“nAME  (PR0CESS_SAMPLE,  "paample"); 
end  SAMPLE_LIB; 

To  avoid  conflicts  with  the  Ada  run-time  system,  the  names  of  interfaced  subprograms  should  not  begin 
with  the  letters  ALSf,  in  any  combination  of  upper  and  lower  case. 


F.2  Name  and  Type  of 
Implementation-Dependent  Attributes 


There  are  no  implementation  dependent  attributes  available  to  the  user. 
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F.4  Restrictions  on  Representation  Clauses 


Representation  clauses  are  not  supported.  Any  program  containing  representation  clauses  is  illegal  ar.. 
rejected  at  compile-time.  Use  of  the  pragma  PACK  results  in  a  warning  that  the  pragma  is  not  suppcr'e  j 


F.5  Conventions  for  Implementation-Generated 
Names 


There  are  no  implementation-generated  names  available  to  the  user. 


F.6  Interpretation  of  Expressions  Appearing  in 
Address  Clauses 


Address  clauses  are  not  supported. 


F.7  Restrictions  on  Unchecked  Type  Conversions 


Unchecked  conversions  are  allowed  between  any  types  implemented  in  the  same  physical  size. 


F.8  Implementation-Dependent  Characteristics 
of  the  I/O  Packages 


The  Reference  \fanual  for  the  Ada  Programming  Language  defines  the  predtfir.ed  input-output  packages 
lis.ed  below.  Use  of  the  facilities  provided  by  these  packages  is  described.  T’.c  package  lOJiXCZPTlCNS 
specifies  exceptions  used  by  the  other  packages.  LOW_LCV EL_IO  is  not  implemented.  There  is  no  direct 
correspondence  between  HP-UX  and  Ada  low-level  I/O. 


SEQUENTIAL  10 
DIRECT  10  ~ 
TEXT  10 
10  EXCEPTIONS 


(Reference  Manual  for  the  Ada  Programming  Language,  1  A  2  3) 

(Reference  Manual  for  the  Ada  Programming  Language,  14  2.  5) 

(Reference  .Manual  for  the  Ada  Programming  Language,  14  3.  1  0) 

(Reference  .Manual  for  the  .Ada  Programming  Language,  14  5) 
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Correspondence  between  External  Files  and  HP-UX  Files 


Ada  I/O  ;s  considered  in  terms  of  external  files.  Data  is  read  from  and  written  to  external  files  E  -.  .  n 
external  file  is  implemented  as  a  standard  HP-LX  file.  Before  an  external  file  can  be  used  by  an  \:i 
program,  it  must  be  associated  with  a  file  object  belonging  to  that  program.  This  association  is  achie- ed 
by  supplying  the  name  of  the  file  object  and  the  name  of  the  exterodl  file  to  the  procedures  CREATE  r 
OPEN  of  the  predefined  I/O  packages.  Once  this  association  has  been  made,  the  external  file  can  be  real 
from  or  written  to  with  the  file  object. 

The  name  of  the  external  file  can  be  either  of  the  following: 

•  Null  string  (CREATE  only) 

•  HP-UX  pathname 

If  the  name  is  a  null  string,  the  associated  external  files  is  a  temporary  file,  created  using  the  HP-UX 
facility  tmpnam(3).  This  external  file  will  cease  to  exist  upon  completion  of  the  program. 

If  the  external  file  is  an  HP-UX  pathname,  the  pathname  is  extended  in  conformance  with  HP-UX  rules 
(see  intro(2)  m  the  HP-UX  Reference  Manual).  The  exception  USE_ERROR  is  raised  by  the  procedure 

CREATE  if  the  specified  external  file  is  a  device.  USE _ ERROR  is  also  raised  for  either  OPEN  or 

CREATE  if  the  user  has  insufficient  access  rights  to  the  file. 

If  an  existing  external  file  is  specified  to  the  CREATE  procedure,. the  contents  of  that  file  will  be  deleted. 
The  recreated  file  is  left  open,  as  for  a  newly  created  file. 


NOTE 


The  execution  of  the  procedures  and  functions  of  the  predefined  I/O 
packages  involves  the  use  of  the  Ada  run-Cime  system  and  the  possible 
excution  of  a  number  of  HP-UX  I/O  primitivei  When  such  primitives  are 
executed,  an  HP-UX  I/O  signal  could  be  raised  (such  signals  are  raised,  for 
example,  if  errors  arc  detected  during  the  processing  of  an  I/O  primitive). 

If  certain  HP-UX  I/O  signals  are  raised,  they  are  caught  and  processed  by 
the  Ada  run-time  system.  This  processing  causes  the  appropriate  Ada 
exception  to  be  raised.  Such  Ada  exceptions  can  then  be  handled  by  the 
.Ada  program. 


Standard  Implementation  of  External  Files 

External  files  have  a  number  of  implementation-dependent  characteristics,  such  as  their  physical 
crganiiaticn  and  file  access  rights.  In  the  future,  it  will  be  possible  to  custcmiae  these  cha.-acteristici 
through  the  FORM  parameter  of  the  CREATE  and  OPEN  procedures.  At  this  writing,  only  the  default  of 
FORM  IS  supported,  that  is  the  null  string.  In  addition,  the  functions  FORM  (of  TEXT_10  and  any 
instantiation  of  DIRECT _I0  or  SEOUENTIAL_IO)  return  a  null  string.  The  exception  USE  ERROR  is  raised 
should  a  non-null  FORM  string  be  given  to  the  CREATE  or  OPEN  procedures.  The  following  section 
describes  the  standard  or  default  implementation  of  external  files.  It  covers  three  types  of  external  file 
sequential,  direct  and  text  files.  Default  protection  for  external  files  is  also  described. 


Sequential  Files 

For  sequental  iccess.  the  file  .s  •'■.e'J.ed  is  i  sequence  of  ••al'jes  that  ire  'rar.sferred  :n  ’he  -rter  f  ■'o.r 
appearance  'as  produced  by  the  program  or  by  the  run-tsme  environment)  Each  file  component  :b.e-t  .n 
a  sequential  file  has  exactly  the  same  binary  representation  as  the  Ada  object  m  the  etecutaole  pregram 

The  information  placed  in  a  sequential  file  is  dependent  upon  whether  the  type,  used  for  the  instantiation 
of  the  sequential  I/O  packages,  is  constrained  or  unconstrained.  If  it  is  constrained,  the  objects  are  p'Jt 
consecutively  into  the  file,  without  holes  or  separators.  If  the  type  is  unconstrained,  the  length  of  the 
object  (in  bytes)  is  added  to  the  front  of  the  object,  as  a  32 -bit  integer  value.  There  is  no  buffer  between 
the  physical  external  file  and  the  .Ada  program. 

Direct  Files 

For  direct  access,  the  file  is  viewed  as  a  set  of  elements  occupying  consecutive  positions  in  a  linear  order 
The  position  of  an  element  in  a  direct  file  is  specified  by  its  index,  which  is  an  integer  in  the  range  1  to 
(2**3 1)-1  of  subtype  POSITIV£  COUNT.  Only  objects  of  a  constrained  type  can  be  written  to  or  read  from 
a  direct  access  file.  Such  objects  have  exactly  the  same  binary  representation  as  the  Ada  object  in  the 
executable  program.  Although  instantiation  of  DIRECT _IO  is  accepted  for  unconstrained  types,  the 
exception  USE  ERROR  is  raised  on  any  call  to  CREATE  or  OPEN  where  the  object  is  of  an  unconstrained 
type. 

.All  elements  within  the  file  have  the  same  length.  The  number  of  bytes  occupied  by  each  element  is 
determined  by  the  size  of  the  object  stored  in  the  file.  There  is  no  buffer  between  the  physical  external 
file  and  the  Ada  program. 

Text  Files 

Text  files  are  used  for  the  input  and  output  of  information  in  human-readable  form.  Each  text  file  is 
read  or  written  sequentially,  as  a  sequence  of  characters  grouped  into  lines,  and  as  a  sequence  of  lines 
grouped  into  pages.  All  text  file  column  numbers,  line  numben,  and  page  numbers  are  in  the  range  I  to 
(2**3 1)-1  of  subtype  POSITIVE  COUNT.  The  line  terminator  (end-of-line)  is  physically  represented  by 
the  ASCII  character,  ASCII.LF.  The  page  terminator  (end-of-page)  is  physically  represented  by  a 
succession  of  the  two  characters,  ASCII.LF  and  ASCII.FF,  in  that  order.  The  file  terminator 
(end-of-file)  is  physically  represented  by  the  character  ASCII.LF,  followed  by  the  HP-UX  end-of-file. 

The  user  who  controls  line,  page,  and  file  structure  by  calling  predefined  subprograms  (Reference  .Manual 
for  the  Ada  Programming  Language,  14.3.4)  need  not  be  concerned  with  the  above 
terminator-implemenution  details.  If  structural  control  is  effected  by  explicitly  inp  itting  or  outputting 
these  control  characten  (via  the  PUT  function,  for  example),  it  is  the  user’s  responsibility  to  ensure  the 
external  file  is  maintained  in  a  coherent  state.  The  standard  implementation  of  text  files  does  not  buffer 
text  file  I/O.  However,  buffering  is  a  device-dependent  characteristic  that  can  be  modified  at  the  system 
level  (for  example,  to  buffer  lines  of  text  entered  from  a  terminal).  If  a  terminal  is  used  for  text  input, 
the  functions  END  OF  PAGE  lad  END  OF  FIlE  always  return  FALSE. 


Access  Protection  of  External  Files 

HP-UX  provides  protection  of  a  file  by  means  of  access  rights.  These  rights  are  used  within  .Ada 
programs  to  protect  external  files.  There  are  three  levels  of  protection: 


•  User  uhe  owner  of  the  the). 

•  Group  (users  belonging  to  the  owner's  group). 

•  Others  (users  belonging  to  other  groups). 

For  each  of  these  levels,  access  to  the  file  can  be  limited  to  one  :r  several  of  the  following  rignts  re^c 
write  or  execute.  The  standard  external  file  access  rights  are  specified  by  the  u^ASK  command  -ee 
urmski  1 )  and  urrtisk(2)  in  the  HP-UX  Reference  Manual),  .\ccess  rights  apply  equally  to  sequentia. 
direct,  and  text  files. 


The  Sharing  of  External  Files  and  Tasking  Issues 

Several  file  objects  can  be  associated  with  -he  same  external  file.  These  file  objects  can  have  identical  ;r 
differing  I/O  modes;  each  file  object  has  independent  access  to  the  external  file.  The  effects  of  sharing  in 
external  file  depend  on  the  nature  of  the  file.  The  user  must  keep  in  mind  the  nature  of  the  device 
attached  to  the  file  object  and  the  sequence  of  I/O  operations  on  the  device.  Multiple  I/O  operations  cn 
an  external  file  shared  by  several  file  objects  are  processed  in  the  order  they  are  received. 

In  the  case  of  shared  files  on  random  access  devices  such  as  disks,  the  data  is  shared.  Reading  from  one 
file  object  does  not  affect  the  file  positioning  of  another  file  object,  nor  the  data  available  to  it. 
Simultaneous  reading  and  writing  of  separate  file  objects  to  the  same  random  access  external  file  should 
be  avoided  however;  due  to  buffering,  the  effects  are  unpredictable. 

In  the  case  of  shared  files  as  sequential  or  interactive  devices  such  as  mag  tapes  or  keyboards,  the  data  is 
no  longer  shared.  In  other  wordi  a  mag  tape  record  or  keyboard  input  buffer  read  by  one  I/O  operation 
IS  no  longer  available  the  next  operation,  whether  it  is  performed  on  the  same  file  object  or  not.  This  is 
simply  due  to  the  sequential  nature  of  the  device.  By  default,  the  Ada  file  objects  represented  by 
STANDARD_IN  and  STANDARD_OUT  are  preconnected  to  the  HP-UX  streams  stdin  and  stdout  see 
stdio(S)  ),  and  thus  are  of  this  sequential  variety  of  file. 


Each  file  operation  is  completed  before  a  subsequent  file  operation  commences.  In  a  tasking  program,  this 
means  no  explicit  synchronization  needs  be  performed  unless  the  order  of  I/O  operations  is  critical.  .\n 
Ada  tasking  program  is  erroneous  if  it  depends  on  the  order  of  I/O  operations  without  explicitly 

synchronizing  them.  Remember  that  the  files  associated  with  STANDARD _ IN  and  ST.ANDaRD _ OUT 

are  shared  by  all  tasks,  and  that  care  must  be  taken  when  Ada  file  objects  use  buffered  I/O. 

I/O  Involving  Access  Types 

When  an  object  of  an  access  type  is  specified  as  the  source  or  destination  of  an  I/O  operation  (write  or 
read),  the  32-bit  binary  access  value  is  read  or  written  unchanged.  If  an  access  value  is  read  from  a  file, 
care  should  be  taken  to  ensure  that  the  access  value  so  read,  designates  a  sensible  object.  This  is  only 
likely  to  be  the  case  if  the  access  value  read  was  previously  written  by  the  same  program  that  is  reading  it, 
and  the  object  which  it  designated  at  the  time  it  was  written  still  exists  (that  is,  the  scope  in  which  it  w  js 
allocated  has  not  been  exited,  nor  has  an  UNCHECKED_DE.ALLOC.-kTION  been  performed  on  lU 
program  may  execute  erroneously  if  an  access  type  read  from  a  file  does  not  designate  a  sensible  object. 


I/O  Involving  Local  Area  Networks 


Ada  I/O  can  be  used  reliably  across  local  area  networks  only  if  the  network  special  files  representing 
remote  file  systems  are  contained  in  the  directory  /rret,  as  is  tosiomary. 


(t.  IJ. 


Implementation-Defined  I/O  Packages 


.'V/if'  [\V  :s  ^r.!y  implerr.entation -del -.ned  I/O  packaae  An  Ada  pr'^gram  has  no  imphc-.t  ac^?'S 
e\ecjt:cn  er.v;: :nment.  in  particular,  there  ;s  no  Jirect  equivalent  to  the  argc  and  arjv  parar.e'ers  :  i  ■ 
main  program.  In  this  implementation,  parameters  cannot  be  passed  to  a  procedure  used  as  an  Ada  r.i.r) 
rcgram  The  binder  will  not  bind  a  program  with  parameters  in  its  main  program.  The  implemen’a’nn 
redefined  package  UNIX_£HV  enables  an  Ada  program  to  retrieve  information  from  the  HP-LX 
environment.  The  specification  of  UNIX  ENV  is  listed  below  and  in  Chapter  4  of  the  Ada  User  s  Guide 

package  UNIX  ENV  is 

--  This  package  enables  an  Ada  program  to  retrieve  information  from 
--  its  HP-UX  environment. 

--  WARNING:  The  function  ENT  VALUE  will  not  behave  correctly  if  t^e 
program  is  linked  with  an  interface  C  routine  named 
CETENV. 

function  ARG_COUNT  return  POSITIVE; 

--  Returns  the  number  of  arguments  in  the  command  line  of  the  program 
--  (same  as  argo  parameter  of  a  C  program);  this  number  is  always 
--  positive  (the  first  argument  being  the  name  oy  which  the  program 
--  has  been  invoked). 

function  ARG_VALUE  (INDEX  :  in  NATURAL)  return  STRING; 

--  Returns  the  INDEXth  argument  in  the  comand  line  of  the  program 
--  (same  as  argu[ INDEX}  parameter  of  a  C  program);  if  INDEX 
--  is  >*  ARGjzbuNT ,  the  function  will  raise  lLLEGAL_AfC_INDEX 
--  except'. in. 

ILL£GAL_ARG_INDEX  ;  exception; 

function  ENV_VALUE  (NAME  :  in  STRING)  return  STRING; 

--  Returns  the  value  of  environment  variable  NAME  (same  as 
--  get«no(NAHE)  C  function);  if  there  is  no  environment  function  named 
--  NAME,  the  function  will  raise  UNKNOyN_ENV _NAME  exception. 

UNKN0WN_ENV_NAME  :  exception; 

type  EXIT_STATUS  is  range  0  ..  255; 

--  Declared  so  that  a  variable  of  this  type  is  constrained  to  6 
--  significant  bits  (as  it  may  be  tested  under  HP-UX)  but  implemented 
--  as  a  16-bit  integer  (for  the  sake  of  C  interface). 

procedure  SET_EXIT_STATUS  (STATUS  ;  in  EXIT_STATUS ) ; 

--  Seta  the  HP-UX  exit  status  of  the  program.  This  status  is  0  by 
--  default.  Ary  call  to  this  procedure  overrides  the  previous  value 
--  of  the  status. 

function  EXEC_SHELL_COMMANO  (COMMAND  :  in  STRING)  return  EXIT_STATUS; 

--  Passes  the  given  string  as  a  command  to  the  SH  HP-UX  shell,  waits 
--  until  shell  completion  and  returns  the  exit  status  of  the  shell. 

end  UNIX  ENV; 
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F.9  Interfaced  Subprograms 


Parameter  and  Result  Passing  Conventions 


The  following  Ada  types  are  not  supported  when  passing  parameters  to,  nor  returning  results  from 
interfaces  subprograms  (as  neither  C  nor  ASSEMBLER  recognize  these  types): 


•  Task  types 

•  Private  types 

•  Fixed-point  types 


The  result  type  of  an  interfaced  subprogram  is  further  restricted  to  be  of  a  scalar  or  access  type. 

Subprogram  parameters  are  passed  on  the  stack  in  the  reverse  order  of  their  declaration.  Since  this  is  the 
C  parameter-passing  convention,  interfaced  subprograms  written  in  C  will  automatically  interface 
properly.  For  interfaced  subprograms  written  in  ASSEMBLER,  it  is  the  programmer's  responsibility  to 
follow  the  same  convention. 

Three  parameter  passing  moots  are  supported  for  interfaced  subprograms: 


•  In 

•  In  Out 

•  Out 


When  passing  scalar  types  (integer,  real,  character,  or  enumeration)  or  access  types,  to  formal  parameters 
of  mode  in,  each  scalar  or  access  type  is  passed  as  a  copy  of  its  value. 

.All  supported  types  passed  with  modes  in  out  or  out,  and  array  or  records  types  passed  with  mode  in, 
are  passed  by  reference  (address).  In  particular,  an  access  type  passed  as  an  in  out  or  out  parameter  is 
passed  as  the  address  of  the  access  value  (which  is  in  turn  the  address  of  the  object  it  designates);  the 
designated  object  is  therefore  doubly  indirect  within  the  interfaced  subprogram. 


NOTE 


No  consistency  checking  is  performed  between  the  subprogram  parameters 
as  declared  in  Ada  and  the  corresponding  parameters  in  the  interfaced 
subprogram. 

If  the  ADDRESS  of  any  object  is  passed  to  an  interface  subprogram,  that 
object  IS  not  protected  from  being  updated  by  the  interfaced  subprogram. 
Such  objects,  as  well  as  parameters  passed  with  mode  in  out  or  out  fand 
in  for  arrays  and  records),  will  have  no  run-time  checks  performed  on 
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'heir  jcr.ter.ts  jpon  return  from  the  interfaced  subprogram.  Errroc.cs 
program  behavior  may  result  if  the  parameter  values  are  altered  such  ihat 
they  violate  \di  :or.stra:nts  for  the  type  of  the  actual  parame'er 

When  calling  an  ASSEMBLER  subprogram,  the  .\da  compiler  experts  the 
contents  of  registers  D2  through  D?  and  .\2  through  to  be  left 
unchanged.  The  ASSEMBLER  subprogram  must  save  and  restore  these 
registers  if  it,  or  any  routine  it  calls,  might  change  them. 


rm 
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Scalar  Parameters 


Integer  Types 


The  integer  types  LOHCJNTEGER,  INTEGER,  and  SHCFTJNTECER  may  be  passed  to  intert'aced 
subprograms. 

When  passed  by  value  to  an  interfaced  subprogram  written  in  C,  ail  integer  values  are  sign  etter.ded  to 
32-bits  and  the  32-btt  value  is  passed  to  C.  This  conforms  with  the  C  parameter-passing  conventions 
Values  of  type  ^0NG_1NTEGER  are  pushed  onto  the  stack  unchanged  Values  of  type  INTEGER  i.'d 
SNORT  INTEGER  iTC  sign  extended  on  the  left  to  32  bits  and  the  32 -bit  value  is  pushed  onto  the  sta^k 

When  passed  by  reference  to  an  interfaced  subprogram  written  in  C,  no  integer  values  are  sign  extended 
or  modified  in  any  way.  The  32-bit  address  of  the  value  is  pushed  onto  the  stack. 


NOTE 


The  term  short  integer  has  different  meanings  to  Ada  and  C.  A 
SHORT NT  EGER  in  Ada  occupies  8  bits,  while  one  in  C  (a  short  int  or 
int)  occupies  16  bits.  An  ordinary  INTEGER  pzsscd  by  reference  from  Ada 
to  C,  must  be  treated  as  a  short  irtf«g«r  (using  pointer-to  short  int) 
in  C.  An  Ada  SHORT _INTEG£R  passed  by  reference  from  Ada  to  C,  cannot 
be  meaningfully  accessed  as  any  type  of  integer  in  C  at  all.  An  Ada 
SHORT  ^INTEGER  passed  by  reference  from  Ada  to  C  can,  however,  be 
accessed  as  a  character  in  C  (using  pointer-to  char).  Since  C  permits 
"integer  like"  operations  on  objects  of  type  char,  an  Ada  SHORT  _I  NT  EGER 
passed  by  reference  to  C,  can  be  successfully  used  and  modified  by  C  (as  an 
object  of  type  char).  This  difficulty  does  not  apply  to  integers  passed  by 
value,  as  they  are  all  sign  extended  and  passed  in  32-bit  constructs,  as 
described  earlier. 


When  passed  by  value  to  an  interfaced  subprogram  written  in  .\SSEMBLER,  values  of  type 
L0NG_INTEGER  and  INTEGER  are  pushed  onto  the  stack  unchanged  (as  32-bit  and  16-bit  values 
respectively).  Values  of  type  SHORT _I  NT  EGER  zre  pushed  onto  the  stack  in  the  high-order  (leftmost)  i 
bits  of  a  16-bit  field  (the  low  order  8  bits  of  the  16-bit  field  are  meaningless  and  should  not  be  accessed). 

When  passed  by  reference  to  an  interfaced  subprogram  written  in  ASSE.MBLER,  no  integer  values  are  sign 
extended  or  modified  in  any  way.  The  32-bit  address  of  the  lue  is  pushed  onto  the  stack. 


Character  T ypes 


ip 


•\il  character  types  iinc!'c.i;ng  the  predethr.ed  type  CHARACTER'  _rr»-:p'.nJ  eaa.tly  i-.tn  t.-.e 
criar  ;n  C  Both  the  Ada  and  C  types  occupy  i  bits  and  have  the  same  .n'ernal  representation 

When  passed  by  value  to  an  interfaced  subprogram  written  in  C,  they  are  extended  to  j2  bits  and  ’re 
32-bit  value  is  pushed  onto  the  stack,  with  the  actual  value  in  the  low-order  rightmost)  i  bits. 

When  passed  by  reference  to  an  interfaced  subprogram  written  in  C,  the  salue  is  unchanged  and  the 
32-bit  address  of  the  character  is  pushed  onto  the  stack. 

Character  values,  whether  passed  by  value  or  reference  to  C,  can  be  used  directly  by  the  interfaced  C 
subprogram  as  values  of  type  c/?ar  (using  pointcr-to  cAar  when  passed  by  reference). 

When  passed  by  value  to  an  interfaced  subprogram  written  in  ASSEMBLER,  character  values  are  pushed 
onto  the  stack  in  the  high-order  (leftmost)  8  bits  of  a  16-bit  field  (the  low  order  8  bits  of  the  1  6-bit  field 
are  meaningless  and  should  not  be  accessed). 

When  passed  by  reference  to  an  interfaced  subprogram  written  in  ASSEMBLER,  the  value  is  unchanged 
and  the  32~bit  address  of  the  character  is  pushed  onto  the  stack. 


Enumeration  Types 


Values  of  an  Ada  enumeration  type  are  represented  internally  as  positive  integers  representing  their 
position  in  the  list  of  enumeration  literals  defining  the  type.  The  first  literal  in  the  list  corresponds  to  an 
integer  value  of  zero.  Enumeration  types  with  128  elements  or  less  are  represented  a.s  short  (8-bit) 
integers,  those  with  more  than  128  elements  as  ordinary  (16-bit)  integers.  The  maximum  number  of 
values  an  enumeration  type  can  include  (2**1  5-1). 

When  an  enumeration  value  is  passed  to  an  interfaced  subprogram,  the  underlying  integer  value  is  passed 
as  described  above  for  integer  types: 

•  When  passed  by  value  to  C,  thry  are  extended  to  32  bits  and  the  32-bit  value  is  pushed  onto  the  stack. 

•  When  passed  by  value  to  .ASSEMBLER,  a  l6-bit  value  is  passed  unchanged,  while  an  8 -bit  value  is 
passed  in  the  high-order  (leftmost)  8  bits  of  a  16-bit  value  pushed  onto  the  stack. 

•  When  passed  by  reference,  the  value  is  unchanged  and  the  32-bit  address  of  tne  value  is  pushed  onto 
the  stack. 


Enumeration  values  in  C  are  represented  in  the  same  general  way  as  m  .Ada,  but  are  always  expressed  as 
16-bit  integers,  regardless  of  the  number  of  elements.  When  C  passes  an  enumeration  value  by  value,  it 
are  extended  to  32-bits  with  the  high-order  16  bits  disregarded.  Notice  that  the  automatic  32-bit 
extension  performed  when  Ada  passes  an  enumeration  value  to  C  by  value,  ensures  that  it  will  be 
represented  in  the  proper  C  (by  value)  form. 

When  Ada  passes  an  enumeration  value  by  reference,  however,  the  value  is  not  extended;  consequently, 
8-bit  enumeration  values  from  Ada  cannot  be  used  directly  by  C  when  passed  by  reference  (as  C  would 
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issume  ;he  referer.ce  to  be  to  i  obj€;tJ  An  A^la  i-b:t  enurr.erition  passed  oy  rt'ertn.e  t;  .sr. 

however,  be  accessed  as  a  character  in  C  fusing  ?cinter-to  char).  Since  C  permits  'integer  like '  rperat;  'ni 
on  objects  of  type  char,  an  Ada  S-bit  enumeration  value  passed  by  reference  to  C,  can  be  successfully 
used  and  r.cdif.ed  by  C  'as  an  tb.ect  ^f  type  c''-"'  This  difficulty  does  not  apply  to  enumeration  •a.ues 
passed  by  value,  as  they  are  ad  sign  e.xtended  and  passed  in  32-bits.  as  noted  above. 


Floating  Point  Types 


.Ada  has  one  floating-point  type,  the  type  FLOAT,  which  is  implemented  m  32-bits  with  the  IEEE 
standard  representation  A  Proposed  Standard  for  Binary  Floating-Point  Arithmetic,  lEE  P'SA,  draft  10  0) 
and  which  is  passed  as  a  parameter  with  that  representation  and  length.  C  has  both  the  32-bit  IEEE 
floating-point  type  {float)  which  corresponds  to  the  .Ada  FLOAT  type,  and  a  64-bit  IEEE  floating-point 
type  (double),  which  Ada  does  not  currently  support. 

However,  C  extends  all  32-bit  (float)  values  to  64  bits  (double)  when  they  are  passed  as  parameters  or 
returned  as  results.  Thus  the  .Ada  FLOAT  type  cannot  be  passed  by  value  directly  to  C,  nor  returned 
directly  from  C.  An  Ada  FLOAT  can  be  passed  directly  to  C  by  reference,  as  C  does  not  expect  such 
parameters  to  be  extended. 

It  is  however  possible  to  pass  Ada  FLOAT  values  to  C  by  value  and  to  return  Ada  FLOAT  values  from  C  if 
the  C  routine  uses  a  union  containing  a  float  field  and  an  lortg  int  field. 

A  sample  C  function  to  square  an  .Ada  floating  point  value  follows.  The  parameter  in  the  C  function  is 
declared  to  be  the  union  type  (the  union  type  has  a  size  of  32-bits,  which  matches  the  Ada  FLOAT  value 
being  passed).  The  function  uses  the  float  field  (f)  of  the  union  to  access  the  Ada  floating  point  value 
and  stores  its  result  in  a  union  of  the  same  type.  It  returns  the  long  int  field  (i)  of  the  union  which 
overlays  (occupies  the  same  storage  as)  the  float  field  and  which  is  returned  in  the  manner  in  which  .Ada 
expects  a  FLOAT  function  result  to  be  returned.  Note  that  neither  the  float  field  of  the  union  nor  the 
entire  union  should  be  returned  (the  former  would  be  returned  as  a  double  and  the  latter  is  a  C 
structured  type  and  would  returned  in  a  manner  that  is  not  consistent  with  where  Ada  expects  a  FLOAT 
result  to  be  returned). 

typedef  union  {float  f;  long  int  1}  ada_float; 

int  squareit  (pann) 

ada_float  parm; 

{ 

ada_float  result; 

result,  f  »  parm.f  •  parts,  f; 

return  result . 1 ; 


A  sample  .Ada  procedure  to  call  the  sample  C  function  follows: 


wi-.h  •"EXT_:0; 
proceQure  SQUARE_®I  is 

pi  constant.  f'LCAT  :=  3.1415926; 

P  1  2  :  FLOAT ; 

package  FLOATER  is  new  TEXT  IO.FLCAT_IO  (FLOAT); 

function  SQUARE  (f:  FLOAT)  return  FLOAT; 

pragma  INTERFACE  (C,  SQUARE); 

pragma  INTERFACE_NAME  (SQUARE,  "squareit  " ) ; 

begin  --  SQUARE  PI 

pi2  :=  SQUARE  (pi)  ; 

TEXT  10. PUT  ("Pi  squared  *  " ) ; 

FLOATER. PUT  (pi2); 

TEXT_IO.NEW  LINE; 
end  SQUARE  PI;“ 
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Fixed-Point  Types 


Fxei -p-;  .r.;  -.-pes  are  ",ct  '^pporteJ  iS  parar.eters  :r  resuits  of  .r.terfa.ed  ;ubpr  ..rj.-'.s 

Access  T ypes 

^■aiues  of  an  access  type  are  represented  internally  by  the  32-bit  address  of  the  underlying  designated 
object.  When  an  access  value  is  passed  by  value,  this  32-bit  address  itself  is  pushed  onto  the  stack,  .•  en 
passed  by  reference,  a  double-indirect  address  (the  address  of  the  address  of  the  designated  object)  is 
pushed  instead. 


Composite  Types 


When  a  composite  type  (an  array  or  record  type)  is  passed  as  parameter  to  an  interfaced  subprogram,  it  is 
always  passed  by  reference  (regardless  of  whether  the  mode  is  in,  in  out,  or  out).  A  component  of  a 
composite  type  is  passed  according  to  its  type  classification  (scalar,  access,  or  composite).  The  following 
section  discusses  the  passing  of  composite  type  parameters. 


Array  T ypes 


.•\da  arrays  are  always  passed  by  reference;  the  value  passed  on  the  stack  is  the  32-:it  address  of  the  first 
element  of  the  array.  When  an  array  is  passed  as  a  parameter  to  an  interfaced  subprogram,  the  usual 
consistency  checking  between  the  array  bounds  declared  in  the  calling  program  and  the  subprogram  are 
not  enforced.  It  is  the  programmer’s  responsibility  to  ensure  that  the  subprogram  does  not  violate  the 
bounds  of  the  array. 

A  description  of  array  element  allocation  and  alignment  can  be  found  in  section  F.  12  of  this  appendix. 

Note  that  .Ada  arrays  with  SHORT_INT£C€R  and  8-bit  enumeration  type  components  do  not  correspond 
directly  wuh  any  C  array  type;  however  they  can  be  accessed  in  C  as  an  array  of  shar.  Since  the 
contents  of  such  arrays  are  not  characters,  the  C  routine  must  access  and  modify  them  as  is  appropriate 
for  the  actual  component  type. 


String  Types 


'•  ilues  of  :he  predefined  type  STRING  are  a  special  case  of  arrays,  and  are  passed  on  the  stack  m  the  same 
’.he  3  2-bit  address  of  the  first  character  m  the  string  is  pushed  onto  the  stack. 

Nvj'.e  that  .Ada  strings  do  not  (normally)  end  wuh  an  ASCII  null  character,  as  required  by  the  C  string 
representation  convention.  It  is  the  programmer's  responsibility  to  append  a  null  character  (.ASCII  NLL) 
to  the  end  of  the  Ada  string  before  passing  it  to  a  C  subprogram,  and  if  necessary  to  delete  the  null 
character  on  return. 
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Likf  arrays,  AJa  rec^ris  are  al'.>.'ays  passed  by  reference,  the  value  passed  >.s  the  3;-bit  address  :f  the  thrst 
component  of  the  record.  However,  unlike  arrays,  the  individual  components  of  a  record  may  :e 
reordered  internally  by  the  Ada  compiler.  .Moreover,  if  a  record  contains  discriminants  or  composite 
components  having  a  dyna.mic  size,  implicit  components  may  have  been  added  to  the  record. 

The  exact  internal  structure  of  a  record  is,  therefore,  not  known  directly  at  coding  tim.e.  However,  'he 
location  of  components  of  a  record  may  be  determined  with  the  POSITION  attribute,  which  evaluates  to 
the  offset  of  a  record  component  wuh  respect  to  the  starting  address  of  the  record.  By  passing  5Uv.h 
record  component  offsets,  in  addition  to  the  record,  Ada  record  components  can  be  accessed  and  modif.ed 
by  an  interfaced  subprogram  (although  considerable  pointer  arithmetic,  or  type  conversion  and  casting,  or 
both,  be  necessary  m  the  interfaced  subprogram). 


Result  Returned  by  an  interfaced  Function  Call 


Only  objects  of  a  scalar  type  or  an  access  type  can  be  returned  as  the  result  of  an  interfaced  function  call. 
.All  scalar  types  except  FLOAT  are  returned  correctly  in  a  straightforward  manner.  For  information  on 
returning  a  value  of  type  FLOAT,  refer  to  "Floating-Point  Types,"  earlier  in  this  appendix. 


Potential  Problems  when  Using  Interfaced  Subprogram  Units 


The  .Ada  run-time  system  generates  and  catches  the  following  HP-UX  signals 

SIGALRM 

SIGILL 

5IGIOT 

SIG5EGV 

SIGBUS 

•Any  attempt  to  trap  or  ignore  these  reserved  signals  by  an  interface  subprogram,  that  is  not  part  of  the 
Ada  run-time  system  may  have  unpredicUble  results  (except  as  described  later  in  this  appendix). 

Problems  can  arise  if  an  interfaced  subprogram  initiates  a  "slow"  system  function  that  can  be  interrupted 
by  signal  (for  example,  a  read  on  a  terminal  or  a  wait  for  a  child  process  to  complete)  or  if  an  interfaced 
subprogram  can  be  called  by  more  than  one  task  and  is  not  reentrant.  If  an  .Ada  reserved  signal  occurs 
during  such  an  op>eration  or  nonreentrant  region,  the  program  may  function  erroneously. 

For  example,  an  .Ada  program  that  using  tasking  will  cause  the  generation  of  SIGALRM.  If  an  interfaced 
subprogram  needs  to  perform  a  potentially  interruptible  system  call,  or  if  it  might  be  called  from  more 
than  one  ta-k  and  is  not  reentrant,  it  can  be  protected  by  blocking  SIGALRM  the  system  call  or 

nonreentrant  region.  Here  is  an  example  of  a  protected  read( 2)  in  C; 


#  inc  luce  <  s  ;gna  1 . h  > 
void  interface  rouli 


Long  TiaSK  ; 


Aod  SIGAlRM  to  the  list  of  currently  blocked  signals  (see  sigblock{2)) 


mask  »  sigblock  (1L  <<  (SIGALRM- 1 )) ; 


...  read  (...)  ;  /•  or  nonreentrant  region  •/ 


sigsetmask  (mask);  /•  return  to  previous  mask  •/ 


If  any  Ada  reserved  signal  other  than  SIGALRM  la  to  be  similarly  b'xked,  SIGALRM  must  be  blocked  at  the 
same  time  or  already  be  blocked.  When  any  Ada  reserved  signal  other  than  SICARLM  is  unblocked, 
SIGALRM mnat  be  unblocked  at  the  same  time  or  be  unblocked  later. 


•Any  Ada  reserved  signal  blocked  in  interfaced  code,  should  be  unblocked  as  soon  as  is  possible,  to  avoid 
uneccessanly  stalling  the  Ada  run-time  system. 


s 


F.10  Predefined  Language  Attributes 


The  predefined  language  attributes  are  implemented  as  defined  ;n  the  Re’erence  Kianual  ^or  the  -i-a 
Programming  Language.  Appendix  A,  with  the  following  exception. 

P'STCRACE_SIZE 

When  applied  to  an  access  type  or  subtype  of  an  access  type  the  compiler  produces  one  of  two  responses 


•  If  there  is  no  length  clause,  the  compiler  issues  the  warning; 

Th«  prefix  of  the  attribute  STORAGE_SIZE  is  an  access  type  whicn  has  no  length 
clause.  The  value  returned  by  STORACE_SIZE  is  always  0. 

•  If  a  length  clause  is  specified,  the  compiler  issues  the  error: 

Length  clauses  are  not  currently  implefflented . 


F.11  Predefined  Language  Pragmas 


The  predefined  language  pragmas  are  implemented  as  defined  in  the  Reference  fdanual  for  the  Ado 
Programming  Language,"  Appendix  B,  with  the  following  exceptions  (see  also  "Form  and  Effect  of 
Implementation-Dependent  Pragmas,"  later  in  this  appendix). 

Use  of  the  predefined  language  pragmas 

CONTROLLED 
MEMORY  SIZE 

optimize" 

PACK 

SHARED, 

STORAGE  UNIT 
SYSTEM_NA.ME 

are  either  ignored  without  comment  (the  pragma  has  no  effect)  or  elicits  a  warning  from  the  compiler 
This  pragma  is  not  currently  supported  by  the  implementation. 


B-20 


F.12  Data  Type  Ranges,  Alignment,  and  Layout 
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Types 

Ranges 

SHORT  INTEGER 

-I28..  127 

INTEGER 

-32768..  32767 

LONG  INTEGER 

-2_147_483_648  ..  2_I47_483_647 

ENUMERATION 

32768  elements  maximum 

BOOLEAN 

FALSE..  TRUE 

CHARACTER 

0. .  1  27  (ASCII.  NUL. . ASCII.  DEL) 

FLOATING  POINT 

-2#i.iii_iiii_im  im  nil  iiiii4'e+i27 
..  2#i.iii  nil  nil  nil  1111  nni#Efi27 

(thatis,  -3.402823E+38  ..  ♦S.  402823E^38) 

Types 


Alignment 


SHORT  INTEGER 

allocated  on  a  byte  boundary 

INTEGER 

allocated  on  a  word  boundary 

LONG  INTEGER 

allocated  on  a  word  boundary 

ENUMERATION 
(<■■  128  elements) 

allocated  on  a  byte  boundary 

ENUMERATION 
(>  1  28  elements) 

allocated  on  a  word  boundary 

BOOLEAN 

allocated  on  a  byte  boundary 

CHARACTER 

allocated  on  a  byte  boundary 

FIXED  POINT 

mapped  into  one  of  the  three  integer  types 

FLOATING  POINT 

allocated  on  a  word  boundary 

COMPOSITE 

may  be  allocated  on  a  byte  or  word  boundary  depending 
on  the  alignment  constraints  of  the  componenu  or 
elements 

ACCESS 


allocated  on  a  wo:  d  boundary 


Layout 


1  Integer  Types 

SHORT_INTEGER,  INTEGER  and  LONG_INTEGER  are  respectively  alienated  S  bits,  lb  bits  and  ■  2 
bits.  For  a  user-defined  integer  type,  the  representation  chosen  is  the  smallest  of  the  predefined 
integer  types  whose  range  includes  the  range  of  the  declared  type. 

2.  Enumeration  Types  Other  Than  Boolean 

\  value  of  an  enumeration  type  is  represented  by  the  integer  value  corresponding  to  its  position  .n  the 
type  definition  (positions  being  numbered  from  0).  The  values  of  enumeration  types  are  signed  T^.us 
only  enumeration  types  defining  up  to  128  elements  are  represented  in  a  byte. 

3.  The  Type  Character 

The  type  character  is  represented  as  a  user  defined  enumeration  type  of  less  than  129  elements  would 
be  (integer  range  0..  1  27.  corresponding  to  ASCII .NUL.  .ASCII . DEL). 

4.  The  Type  Boolean 

The  values  FALSE  and  TRUE  are  represented  as  the  unsigned  integer  values  0  and  255  in  a  byte. 
Although  the  internal  representation  of  TRUE  is  255,  the  value  of  BOOLEAN' POS  (TRUE)  is  1. 

5.  Fixed  Point  Types 

A  value  of  a  fixed  point  type  is  managed  by  the  compiler  as  the  value  of  signed jmntissa  *  smlL. 
Signed jmntissa  is  a  signed  integer.  Small  is  the  largest  power  of  two  that  is  not  greater  than  the 
delta  of  the  fixed  accuracy  definition.  Thus  fixed  point  types  are  mapped  into  one  of  the  three 
predefined  integer  types. 

6.  Floating  Point  Types 

A  floating  point  va'ue  is  represented  in  normalized  32-bit  IEEE  format: 
bit  0;  sign  (most  significant  bit) 
bits  1  to  8:  exponent 
bits  9  to  31:  mantissa 

7.  Array  Types 

•  General  case:  Elements  are  allocated  contiguously  in  memory  and  stored  by  columns.  The  sue  of  an 
array  is  the  product  of  the  number  of  its  elements  and  its  element  size. 

•  Special  case;  Elements  with  an  odd  number  of  bytes  are  padded  so  as  to  start  at  a  word  boundary 
•An  example  of  this  is  an  array,  with  an  element  type  that  is  a  record.  The  record  contains  two 
components,  of  type  INTEGER  and  BOOLEAN,  respectively.  Instead  of  allocating  these  elements 
contiguously,  all  elements  are  extended  with  a  null  byte  to  make  them  even  sized.  Therefore,  the 


array  ;;:e  .n  .s  ’r.e  produ..:  .'i  tr.e  r.^r 

greater  than  ■.he  element  size  iin  bytesi 


.e."".er.;5  i.' 


Rez:rd  T- ;es 


Reaord  ac.mronents  are  allocated  contiguously  .n  memory  *ith  holes  .nser'ed  hef^een  r.er.'a  • 

satisfy  their  alignment  constraints.  The  aiign.ment  constraint  cl  a  record  .s  the  strongest  liignmer.’ 
constraint  of  any  of  its  componenti 


Implicit  components  are  components  created  by  the  compiler  xithin  a  record.  They  can  be  csed  t :  h ' . : 
the  record  size,  array  or  record  descriptors  or  variant  indexes.  The  implu.t  component  tor  the  re^  r; 
size  IS  in  general  laid  out  at  the  beginning  of  the  record. 


Record  compionents  can  be  rearranged  by  the  compiler  to  tai  e  into  account  alignment  constraints. 


For  dynamic  components,  a  dope  (pointer)  is  created  sphere  the  component  would  normally  have  ‘'een 
laid  out,  and  the  component  itself  is  allocated  at  the  end  of  the  record.  The  dope  contains  the  ;ffset 
from  the  start  of  the  record  to  the  actual  component 


For  a  record  type  with  variant  parts,  the  common  part  and  each  variant  part  are  laid  out  in  the  same 
way  as  described  above,  with  the  exception  that  dynamic  components  are  laid  out  at  the  end  of  the 
entire  record,  not  at  the  end  of  a  specitic  variant  part  Variant  parts  are  overlaid  when  possible  and 
holes  of  previously  laid  out  variant  parts  are  used  whenever  possible. 


9  Parameters 


When  passing  parameters  by  value  within  Ada,  byte  aligned  objects  are  considered  as  word  aligned  and 
right  justified  and  odd-byte-sized  parameters  are  passed  in  even-byte-sized  containers.  This  ensures 
that  the  stack  pointer  remains  even.  (For  information  on  passing  parameter  to  interfaced  subprograms, 
refer  to  section  F.  9  of  t.his  appendix.) 


SV 


F.13  Compiler  Limitations 


U  IS  impos'ible  to  gi'-e  etict  numbers  for  most  of  the  limits  given  here 
The  various  language  features  may  interact  in  complex  ^-ays  to  louver  the 
limits  given  below  The  numbers  represent  "hard"  limits  in  simple  program 
fragments  devoid  of  other  Ada  features. 
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3 ;  -  i  ^(a^..T'.um  number  of  bits  ;n  any  sue  computation 


There  .s  i  .;m.t  :n  the  sue  f  'j'.es  used  .n  o'-erloading  resoiu:.:n  .chuh  .an  p'.ten'ia,;:.  h:  ■ 
r.cure  This  value  is  set  at  and  reflects  the  number  of  possible  interpretations  rf  names 
single  construct  under  analysis  r  >  the  compiler  t  procedure  call,  assignment  statement  etc  i 

Limit  not  affected  by  context. 


F.14  Specificaticn  of  the  Package  STANDARD 


'-yce  is  range  -sZ76S  ..  s27d7; 

type  SHORT  INTESER  is  range  -126  ..  127; 

type  LO;'i'G_Ii\'TEGER  is  range  -21474656*^8  ..  21-7^;3l47; 

type  FLOAT  is  digits  5  range  -2#! . 1  1 11 11  1  1 1  1  1 1  1 1  1  1 1  11  1  i  1 1 « 

. .  2/n .  1 1 1 1 1 1 11 1 1  m  1 1 1  n  n  n  1  # 

type  DURATION  is  delta  0.02  range  -S6400.0  ..  86400.0; 


end  STANDARD; 


cn  V] 


APPENDIX  C 


TEST  PARAMETERS 


Certain  tests  in  the  ACVC  make  use  of  implementation-dependent  values,  such 
as  the  maximum  length  of  an  input  line  and  invalid  file  names.  A  test  that 
makes  use  of  such  values  is  identified  by  the  extension  .TST  in  its  file 
name.  Actual  values  to  be  substituted  are  represented  by  names  that  begin 
with  a  dollar  sign.  A  value  must  be  substituted  for  each  of  these  names 
before  the  test  is  run.  The  values  used  for  this  validation  are  given 
below. 


Name  and  Meaning 


$3IG_ID: 

Identifier  the  size  of  the 

maximum  input  line  length  with 
varying  last  character. 

$BIG_ID2 

Identifier  the  size  of  the 

maximum  input  line  length  with 

varying  last  character. 

$BTG_ID3 

Identifier  the  size  of  the 

maximum  input  line  length  with 

varying  middle  character. 

$BIG_ID4 

Identifier  the  size  of  the 

maximum  input  line  length  with 

varying  middle  character. 

$3IG_INTJ,IT 

An  integer  literal  of  value  298 
with  enough  leading  zeroes  so 
that  it  is  the  size  of  the 

maximum  line  length. 


Value 


(T  ..5  =>  "X2345",  6.  .■'.51  '6.  .251 
;?6.. 35136. .45146. .55  =>  "6789012345" 

56. .254  =>  'A',  255  =>  '1  ’) 


(1..5  =>  "X2345",  6. .151 16. .251 

26. . 35136. .45146. .55  =>  "6789012345" 

56. . 254  =>  'A',  255  =>  '2') 


(1..5  =>  "X2345",  6. .151 16. .251 

26. . 35136. .45146. .55  =>  "6789012345" 

56. . 1261 128. .255  =>  'A',  127  '3') 


(1..5  =>  "X2345",  6. .151 '6. .251 

26. . 35136. .45146. .55  =>  "6789012345" 

56. . 1261 128. .255  =>  'A',  127  =>  '4') 


(1..252  =>  'O',  253. .255  =>  "298") 


'O'  ,  ?50. .?55  => 


$5TG_REA!,J.rT 

A  real  literal  tnat  can  oe 
eitrer  of  floating-  or  fixed- 
point  type,  has  value  690.0,  and 
has  enough  leading  zeroes  to  be 
the  size  of  tne  Eaxim'uzi  line 
length. 

$3I.Ah'KS 

A  sequence  of  blanks  twenty 
characters  fewer  than  the  size 
of  tne  caxi-tum  line  length. 


r<..P35  =>  '  ') 


$C0'JNT_LAST  ?_:m_^83Jin7 

A  u.niversal  integer  literal 
whose  value  is  TEXT  lO.COu.NT’LAST. 


$EXTENDED_ASCII_CHARS  "abcdefghi jklmnopqrstuvwxyz"  & 

A  string  literal  containing  all  " ! \ 
the  ASCII  characters  with 

printable  graphics  that  are  not 
in  the  basic  55  Ada  character 
set . 

$FISI.D_LAST  255 

A  universal  Ir'eger  literal 

whose  value  is  TEXT  10.  FIELD' LAST. 


$  F  ILE_NA  ME_W  ITH_B  A  D_CHA  RS 

An  Illegal  external  file  name 
that  either  contains  invalid 
characters,  or  is  too  long  if  no 
invalid  characters  exist. 

$FILE_NAME_WITH_ivTLD_CARD_CHAR 

An  external  file  name  that 
either  contains  a  wile  card 
character,  or  is  too  long  if  no 
wild  card  character  exists. 

$GREATER_THAN_DURATION 

A  ’universal  real  value  that  lies 
between  DURATION 'BASE 'LAST  and 
DURATION  '  I-AST  if  any,  otherwise 
any  value  in  the  range  of 
DURATION. 


FILE  NAME  I. ONCER  THAN  14  CHARS 


not  there/*/*/*/not  there 


100  000.0 


$GREATER_THAN_DURATION_BASE_LAST  1 00_000_000. 0 

The  universal  real  value  that  is 
greater  than  DURATION 'BASE'LAST, 
if  such  a  value  exists. 


Kane  ana  Mean: 


V  al  ue 


I 


I 


i 


^  •■‘6 


$TI, LEGAL  EXTERNAL  FILE  N; 


in  i^-ecaj 


-r,urtL  nXTEnNAl.  tTLn  KLi'^lE.^ 

An  illegal  external  file  name 
tnat  is  different  from 


JILLEjAL  nXTnRNAI.  rlLn  NaMe.  . 


$INTEGER_FTRST 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER 'FIRST. 


$INTEGER_LAST 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER 'LAST. 


$LESS_THAN_DURATTON 

A  universal  real  value  that  lies 
between  DURATION ’ BASE ' FIRST  and 
DURATION ' FIRST  if  any,  otherwise 
any  value  in  the  range  of 
DURATION. 


$L£3S_THAN_DURATI0N_BASE_FIRST 

The  universal  real  value  that  is 
less  than  DURATION 'BASE 'FIRST, 
if  sucn  a  value  exists. 


$MAX__DIGITS 

The  universal  integer 

literal 

B 

whose  value  is  the 

maximum 

5 

digits  supported 

for 

V 

V 

floating-point  types. 

V 

$MAX_IN_LEN 

The  universal  integer 

literal 

i 

whose  value  is  the 

maximum 

input  line  length  perx 

itted  by 

the  Implementation. 

•j- 

Kf 

$MAX_INT 

£ 

H 

The  universal  integer 

literal 

whose  value  is  SYSTEM. 

MAX_INT. 

L' 

t' 

•  ^  iP  P0  /  If  ^ 


"not  tnere/not  tnpre/no’t 
"/././not  tnere///" 


-3P763 


3^767 


-100  000.0 


-100  000  COO.O 


255 


C-3 


«*.  •< 


i 

* 

i 


Name  ana 

Meaning 

Value 

1-.’ 

S 

s'y- 

$Nn:iE 

NO  SUCH 

*-i  r'. 

ane  if 

a  ;..re 

a  e  f  1  r.ea  n  ame  ri  c 

0 1  ne  r 

t  na  n 

~  i  -  ja  If  - 1'<  1  iL\jtL  r. , 

5  H  0  r 

T_FI.CnT, 

SHORT  INTEGER, 

LONu 

FLOAT , 

or 

LONG  INTEGER 

if 

one  exi 

sts, 

otnerwise  any 

'onae 

fined  na 

'ne 

$’jEu  BkSz-D  INT 


A  based  integer 

literal  whose 

nignest  order 

nonzero  bit 

& 

falls  in  the 

sign  Dit 

position  of  the 

representation 

for  SYSTEM. MAX  INT 

$  .\'0N_A3  Cl  I_CKA  R_T  YP  E 

An  enumerated  type  definition 
for  a  character  type  whose 
literals  are  the  identifier 
NON_i\UIJ.  and  all  non-ASCII 
characters  with  printable 
graphics . 


'o#FE  FF  FF  FD# 


(NON  NUl.L) 


APPENDIX  D 


WITHDRAWN  TESTS 


Some  tests  are  withdrawn  from  the  ACVC  because  they  do  not  conform  to  the 
Ada  Standard.  The  following  *9  tests  had  been  withdrawn  at  the  time  of 
validation  testing  for  the  reasons  indicated.  A  reference  of  the  form 
"Al-ddddd"  is  to  an  Ada  Commentary. 


.  C32imA:  An  untemlnated  string  literal  occurs  at  line  6P. . 


.  533203C;  The  reserved  word  "IS"  is  misspelled  at  line  45. 


C34018A:  The  call  of  function  G  at  line  ''4  is  ambiguous  in  the 
presence  of  implicit  conversions. 


.  C35904A:  The  elaboration  of  subtype  declarations  SFX3  and  SFX4 

may  raise  NUMERIC_ERROR  Instead  of  CONSTRAINT_ERROR  as  expected  in 
the  test. 


B3740'A;  The  object  declarations  at  lines  'P.6  through  "35  follow 
subprogram  bodies  declared  in  the  same  declarative  part. 


.  C4'404A;  The  values  of  'LAST  and  'LENGTH  are  incorrect  in  the 

statements  from  line  74  to  the  end  of  the  test. 


.  B45''6A:  ARRPRIBL'i  and  ARRPRI3LP  are  initialized  with  a  value  of 

the  wrong  type— PRIBOOL_TYPE  instead  of  ARRPRIBOOLJTYPE— at  line 
41 . 


.  C48008A;  The  assumption  that  evaluation  of  default  initial  values 

occurs  when  an  exception  is  raised  by  an  allocator  is  incorrect 
according  to  AI-00397. 
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